home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2001-02-10 | 2.1 KB | 114 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="6"
- "COUNT"="4"
- "UIPATH"="Internet\Opera\"
- "NAME"="Window Settings"
- "VERSION"="1.10"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Automatically tile Opera windows"
- "TEXT 2"="Automatically run Opera windows in Full Screen"
- "TEXT 3"="Enable scroll bars in Opera windows"
- "TEXT 4"="Display menu bar for File, Edit, View..."
- "DESCRIPTION 1"="Some options for Opera."
- "DESCRIPTION 2"="Opera may be obtained at http://www.opera.com"
- "AUTHOR"="Xteq Systems"
- "CONTACTURL"="http://www.xteq.com"
- "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
- "COMMENT 1"=" "
- "COMMENT 2"="Thanks to CptSiskoX for the settings and the idea."
-
-
- sFile=""
- sVal_On="1"
- sVal_Off="0"
-
- sSec="USER PREFS"
- sSec2="WINDOW"
- sV1="AUTO TILE"
- sV2="FullScreen"
- sV3="SHOW SCROLLBARS"
- sV4="SHOW MENU"
-
-
- Sub GetINIFile
- sPath=RegReadValue("HKCU\Software\Opera Software\Last Directory")
- sFile=sPath & "\OPERA.ini"
-
- if FileExists(sFile)=false then
- sFile=GetWinDir & "OPERA.ini"
- end if
- End Sub
-
-
-
- Sub Plugin_Initialize
- Call GetINIFile
-
- If FileExists(sFile) then
-
- i=IniReadValue(sFile,sSec,sV1)
- if i=sVal_On then SetUiElement 1,true
-
- i=IniReadValue(sFile,sSec2,sV2)
- if i=sVal_On then SetUiElement 2,true
-
- i=IniReadValue(sFile,sSec,sV3)
- if i=sVal_On then SetUiElement 3,true
-
- i=IniReadValue(sFile,sSec,sV4)
- if i=sVal_On then SetUiElement 4,true
-
- else
- Call Disable()
- End if
-
- End Sub
-
-
- Sub Plugin_CheckData(ElementIndex)
- End Sub
-
-
-
- Sub Plugin_Apply(ElementIndex,ElementSubIndex)
- b=GetUIElement(1)
- if b=true then
- s=sVal_On
- else
- s=sVal_Off
- end if
- Call iniWriteValue(sFile,sSec,sV1,s)
-
- b=GetUIElement(2)
- if b=true then
- s=sVal_On
- else
- s=sVal_Off
- end if
- Call iniWriteValue(sFile,sSec2,sV2,s)
-
- b=GetUIElement(3)
- if b=true then
- s=sVal_On
- else
- s=sVal_Off
- end if
- Call iniWriteValue(sFile,sSec,sV3,s)
-
- b=GetUIElement(4)
- if b=true then
- s=sVal_On
- else
- s=sVal_Off
- end if
- Call iniWriteValue(sFile,sSec,sV4,s)
-
- End Sub
-
-
- Sub Plugin_Terminate
- End Sub
-
-
-
-